
Imports BikiSoft.DataStream
Imports System.Reflection
Imports System.Runtime.InteropServices

Namespace TechEdge
    Public Class WidebandRuntime
        Implements IStreamRuntime

        Public Event AddControl(ByVal sender As Object, ByVal Control As Object) Implements BikiSoft.DataStream.IStreamRuntime.AddControl

        Public ReadOnly Property Description() As String Implements BikiSoft.DataStream.IStreamRuntime.Description
            Get

            End Get
        End Property

        Public Event DisplayMessage(ByVal sender As Object, ByVal e As BikiSoft.DataStream.DisplayMessageEventArgs) Implements BikiSoft.DataStream.IStreamRuntime.DisplayMessage

        Public Function Initialise() As Boolean Implements BikiSoft.DataStream.IStreamRuntime.Initialise

        End Function

        Public ReadOnly Property Logo() As System.Drawing.Icon Implements BikiSoft.DataStream.IStreamRuntime.Logo
            Get
                Return Nothing
            End Get
        End Property

        Public ReadOnly Property MenuItems() As System.Windows.Forms.ToolStripMenuItem() Implements BikiSoft.DataStream.IStreamRuntime.MenuItems
            Get
                Return Nothing
            End Get
        End Property

        Public Event RemoveControl(ByVal sender As Object, ByVal Control As Object) Implements BikiSoft.DataStream.IStreamRuntime.RemoveControl

        Public Sub ShowDialogForm() Implements BikiSoft.DataStream.IStreamRuntime.ShowDialogForm

        End Sub

        Public Event UnhandledException(ByVal sender As Object, ByVal e As System.EventArgs) Implements BikiSoft.DataStream.IStreamRuntime.UnhandledException

        Public ReadOnly Property Version() As String Implements BikiSoft.DataStream.IStreamRuntime.Version
            Get
                Return "V1.0.0.0"
            End Get
        End Property

        Public ReadOnly Property Name() As String Implements BikiSoft.INamed.Name
            Get
                Return "WidebandIFace"
            End Get
        End Property

        Private disposedValue As Boolean = False        ' To detect redundant calls

        ' IDisposable
        Protected Overridable Sub Dispose(ByVal disposing As Boolean)
            If Not Me.disposedValue Then
                If disposing Then
                    ' TODO: free managed resources when explicitly called
                End If

                ' TODO: free shared unmanaged resources
            End If
            Me.disposedValue = True
        End Sub

#Region " IDisposable Support "
        ' This code added by Visual Basic to correctly implement the disposable pattern.
        Public Sub Dispose() Implements IDisposable.Dispose
            ' Do not change this code.  Put cleanup code in Dispose(ByVal disposing As Boolean) above.
            Dispose(True)
            GC.SuppressFinalize(Me)
        End Sub
#End Region

    End Class
End Namespace
